home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aax.d64 / computer date (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  77 lines
  1. 5 REM"      WRITTEN BY BRIAN KISSINGER
  2. 7 [143]"
  3. 10 DIM CD$(121):PRINT"[147]":POKE53280,2:POKE53281,10
  4. 15 PRINTTAB(14);"COMPUTER[157][157][157][157][157][157][157]DATING"
  5. 20 PRINT"  THE COMPUTER WILL PICK YOUR PERFECT                 [211] MATE [211]"
  6. 30 PRINT"    PRESS F1":GETB$:IFB$="[133]"THEN40
  7. 35 PRINT"[145][145][145][145][145][145][145][145]":GOTO30
  8. 40 PRINT"[147]":POKE53281,1
  9. 50 PRINT"   ANSWER THESE QUESTIONS."
  10. 60 INPUT"    YOUR FIRST NAME";NAME$
  11. 61 IFNAME$=""THEN40
  12. 63 INPUT"    YOUR LAST NAME";LAST$
  13. 64 IFLAST$=""THEN40
  14. 65 INPUT"    YOUR NIC-NAME";NIC$
  15. 66 IFNIC$=""THENNIC$="NONE"
  16. 67 INPUT"    YOUR AGE";AGE
  17. 68 IFAGE<6THENPRINT"  YOUR TOO YOUNG FOR DATING!":FORJ=1TO1000:NEXT:RUN
  18. 70 INPUT"    YOUR SEX,(MALE/FEMALE)";SEX$
  19. 71 IFSEX$=""ORSEX$=" "THEN40
  20. 73 INPUT"    YOUR HOBBIES";FUN$
  21. 75 IFFUN$=""THENFUN$="NONE"
  22. 80 INPUT"    YOUR PHONE NUMBER";PHO$
  23. 81 IFLEN(PHO$)<7THENPHO$="NONE"
  24. 90 GOSUB1990:PRINT"        SEARCHING."
  25. 100 FORJ=1TO120:READA$:CD$(J)=A$:GOSUB2000:NEXTJ
  26. 110 RAN(1)=INT(RND(1)*2)
  27. 120 RAN(2)=INT(RND(1)*20)+1
  28. 130 RAN(3)=INT(RND(1)*40)+1
  29. 140 RAN(4)=INT(RND(1)*40)+1
  30. 141 IFSEX$="F"THENSEX$="FEMALE"
  31. 142 IFSEX$="M"THENSEX$="MALE"
  32. 145 IFSEX$="FEMALE"THENAGE=AGE+RAN(1)
  33. 150 IFSEX$="MALE"THENAGE=AGE-RAN(1)
  34. 155 PHO$=STR$(VAL(PHO$)+RAN(3)*28573)
  35. 156 IFLEN(PHO$)=8THEN160
  36. 157 IFLEN(PHO$)>7THENPHO$=LEFT$(PHO$,8):GOTO156
  37. 158 IFLEN(PHO$)<=7THENPHO$=PHO$+"4000000":GOTO156
  38. 160 NICS$=CD$(80+RAN(4)):DATE$=CD$(80-RAN(3))
  39. 165 IFSEX$="MALE" THEN MATE$=CD$(RAN(2)):GOTO175
  40. 170 MATE$=CD$(20+RAN(2))
  41. 175 PRINT"        FOUND MATCH."
  42. 200 FORJ=1TO1000:NEXTJ:PRINT"[147]"
  43. 210 PRINT"      ";NAME$;" ";LAST$;"'S"
  44. 220 PRINT"             MATCH,"
  45. 230 PRINT"     FIRST NAME: ";MATE$
  46. 240 PRINT"     LAST NAME: ";DATE$
  47. 250 PRINT"     NIC-NAME: ";NICS$
  48. 260 PRINT"     AGE: ";AGE
  49. 265 PRINT"     HOBBIES: ";FUN$
  50. 270 PRINT"     PHONE: ";PHO$
  51. 1980 PRINT"[158] TRY ANOTHER?"
  52. 1981 GETA$:IFA$="Y"THEN RUN
  53. 1982 IFA$="N"THEN PRINT"[147]":END
  54. 1983 GOTO1981
  55. 1990 FORJ=54272TO54296:POKEL,0:NEXT
  56. 1992 POKE54296,10:POKE54277,15
  57. 1995 POKE54278,30:POKE54273,9:POKE54272,100
  58. 2000 POKE54276,33:FORI=1TO5:NEXTI:POKE54276,0:RETURN
  59. 10000 DATA ERMA,TERRI,JENNY,ABDOOLA,HENRIETTA,PATTY,MONGOLA
  60. 10010 DATAFREIDA,LORI,MARGO,MARY,FREDERIKA,GERALDINE,SOPHIE
  61. 10020 DATAWILLAMINA,ESTHER,MATILDA,ESMERELDA,MABLE,SALLY
  62. 10030 DATAED,TOM,JOHN,ABDOOL,HENRY,PATRICK,MONGO
  63. 10040 DATAHARRY,LUKE,BARRY,MARK,FRED,GERALD,SAM
  64. 10050 DATAWILLIAM,ELLIOT,ROCKO,MOHOMID,PAPPY,NERDO
  65. 10060 DATASMITH,JONES,D. DRIPP,STEINKUHL,RUSSELL,RUMAGE,RUTHERFORD,RYDER
  66. 10070 DATABLOCHED,Y. PHART,CRAWFORD,CLAM,KNOTRICH,BYRDBRANE,DREP,NONAIM
  67. 10080 DATAFLINTSTONE,BITTER,JESTER,TYLER
  68. 10090 DATASHUTE,FISH,A. KNIRD,STINCFUL,RUSHNEL,BUMARE,SUTHERFORN,SLYDER
  69. 10100 DATADABONE,U. STINK,RAWFERT,ZEBBER,KNOKWORST,DAWGBRETH,B. WON,Z.WEMP
  70. 10110 DATA FLIKER,BUTERBON,LUSTER,B. HIND
  71. 10120 DATAZITS,DUH..,NONE,KLUTZ,NUM NUMS,NONE,FIST
  72. 10130 DATANONE,HEY YOU!,NONE,PUDGY,PORKY,STRAP,NONE
  73. 10140 DATASISSY,SHORTY,BROOMSTICK,SKULL,MARBLES,DIZZY
  74. 10150 DATAZIPPY,DOO,NONE,JOHN DEER,FRIZZ,BUBBLES,BOOTS
  75. 10160 DATABONES,JUGS,PEEPY,JOKER,GOOBER,JUGDISH,FISH
  76. 10170 DATANONE,FREAK,GEEK,WIMP,MAMA YAC,SUPER NERD
  77.